Sub ExporttblPlanetarySystems()

    Dim str1 As String

    Dim str2 As String

    

    str1 = "tblPlanetarySystems"

    str2 = "PlanetarySystems"

    Call ExportADOXML(str1, str2)

        

End Sub

